home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / waldo / waldo_f.frm < prev    next >
Text File  |  1995-09-06  |  4KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form WALDO_F 
  3.    Caption         =   "WHERE'S WALDO?"
  4.    ClientHeight    =   4605
  5.    ClientLeft      =   1695
  6.    ClientTop       =   1845
  7.    ClientWidth     =   6420
  8.    Height          =   5010
  9.    Icon            =   WALDO_F.FRX:0000
  10.    Left            =   1635
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   4605
  14.    ScaleWidth      =   6420
  15.    Top             =   1500
  16.    Width           =   6540
  17.    Begin PictureBox Picture4 
  18.       AutoSize        =   -1  'True
  19.       BorderStyle     =   0  'None
  20.       Height          =   5055
  21.       Left            =   -2280
  22.       ScaleHeight     =   5055
  23.       ScaleWidth      =   2535
  24.       TabIndex        =   3
  25.       Top             =   120
  26.       Visible         =   0   'False
  27.       Width           =   2535
  28.    End
  29.    Begin PictureBox Picture3 
  30.       AutoSize        =   -1  'True
  31.       BorderStyle     =   0  'None
  32.       Height          =   4410
  33.       Left            =   4680
  34.       Picture         =   WALDO_F.FRX:0302
  35.       ScaleHeight     =   4410
  36.       ScaleWidth      =   1860
  37.       TabIndex        =   2
  38.       Top             =   0
  39.       Visible         =   0   'False
  40.       Width           =   1860
  41.    End
  42.    Begin PictureBox Picture2 
  43.       AutoSize        =   -1  'True
  44.       BorderStyle     =   0  'None
  45.       Height          =   4425
  46.       Left            =   2760
  47.       Picture         =   WALDO_F.FRX:4CFC
  48.       ScaleHeight     =   4425
  49.       ScaleWidth      =   1800
  50.       TabIndex        =   1
  51.       Top             =   0
  52.       Visible         =   0   'False
  53.       Width           =   1800
  54.    End
  55.    Begin PictureBox Picture1 
  56.       AutoSize        =   -1  'True
  57.       BorderStyle     =   0  'None
  58.       Height          =   4350
  59.       Left            =   600
  60.       Picture         =   WALDO_F.FRX:929A
  61.       ScaleHeight     =   4350
  62.       ScaleWidth      =   2100
  63.       TabIndex        =   0
  64.       Top             =   0
  65.       Visible         =   0   'False
  66.       Width           =   2100
  67.    End
  68.    Begin Timer Timer1 
  69.       Interval        =   2000
  70.       Left            =   120
  71.       Top             =   0
  72.    End
  73. End
  74.  
  75. Sub Timer1_Timer ()
  76.     WALDO_F.Show      'Show the main form after small pause
  77.     Waldo             'Run WALDO sub routine of animation
  78.     End               'End of program
  79. End Sub
  80.  
  81.     'This Sub uses three pictures of Waldo and one empty picture box
  82.     'Set all picture boxes Resize property to True with no borders
  83.     'Make sure that your Form Background color matches the background of your artwork
  84. '
  85.     Sub Waldo ()     'Declaration of animation section
  86.     For I = 1 To 6    'Runs this loop 6 times
  87.         Picture4.Visible = -1   'Shows picture #4
  88.         Picture4.Picture = picture1.Picture 'put Pic1 in Pic4
  89.         Picture4.Left = Picture4.Left + 200 'Move Pic4 to the right to simulate walking
  90.         Picture4.Picture = picture2.Picture 'Show #2
  91.         Picture4.Left = Picture4.Left + 200 'Move again
  92.         Picture4.Picture = picture3.Picture 'Show #3
  93.         Picture4.Left = Picture4.Left + 200 'Move
  94.         Picture4.Picture = picture2.Picture 'Show #2 Again
  95.         Picture4.Left = Picture4.Left + 200 'Move
  96.         Picture4.Picture = picture1.Picture 'Show #1
  97.         Picture4.Left = Picture4.Left + 200 'Move
  98.     Next I                                    'Repeat
  99.     Picture4.Visible = 0  'Hide Pic4 when finished
  100.     Picture4.Left = -120  'Reset Pic4 to Far Left of Form
  101.     WALDO_F.Hide          'Close the Form
  102.     End                   'End the Program
  103.     'To increase speed of animation, change 400 to 600 etc.
  104. End Sub
  105.     
  106.  
  107.